home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)aaa.d64 / s_w 08 (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  4KB  |  73 lines
  1. 1 POKE56,56:CLR:PRINT"[147]":POKE53272,(PEEK(53272)AND240)OR14:POKE53280,12:POKE53281,13:POKE53282,8:POKE53283,7:POKE53270,PEEK(53270)OR16:SS$="                                        ":T1$="[156]       [144][146]PARTS[156]                [144][146]PARTS[156]       
  2. 6 T2$[178]"CLR     STOPWAITREMAININGCLR            STOPWAITREMAININGCLR     ":T3$[178]"CLR       STOPWAIT     CLR                STOPWAIT     CLR       ":W1$[178]"STOPRAIN - STOPHAIL - STOPLIGHTNING - STOPTORNADO":W2$[178]"INPUT USING FIRST LETTER ONLY":SC[178]54272:SL[178]1024:S[178]54272:[141]38:[151]S[170]24,0:[141]44
  3. 14 [153]T1$;:[153]T2$;:[153]T3$:P[178]325:[141]57:[153]"INPUT NAME OF PLAYER # 1":[141]51:N1$[178]QQ$:P[178]325:[141]57:[153]"INPUT NAME OF PLAYER # 2":[141]51:N2$[178]QQ$:P[178]930[171]([195](N1$)[173]2):[141]57:[153]"STOP"N1$:P[178]950[171]([195](N2$)[173]2):[141]57:[153]"STOP"N2$
  4. 19 P[178]240:[141]57:[153]N1$" - IT'S YOUR TURN":[141]58:[141]68:LM[178]1507:LN[178]1867:[141]76:P[178]88:[141]57:[153]"STOP   CMDCMDCMD"LS:[139]LS[178]0[167]WW$[178]N2$:[137]80
  5. 24 LM[178]1527:LN[178]1887:[141]76:P[178]109:[141]57:[153]"STOP   CMDCMDCMD"LS:[139]LS[178]0[167]WW$[178]N1$:[137]80
  6. 27 [129]T[178]1904[164]1943:[151]T[170]SC,5:[151]T,69:[130]:P[178]240:[141]57:[153]N2$" - IT'S YOUR TURN":[141]58:[141]68:LM[178]1507:LN[178]1867:[141]76:P[178]88:[141]57:[153]"STOP   CMDCMDCMD"LS:[139]LS[178]0[167]WW$[178]N2$:[137]80
  7. 33 LM[178]1527:LN[178]1887:[141]76:P[178]109:[141]57:[153]"STOP   CMDCMDCMD"LS:[139]LS[178]0[167]WW$[178]N1$:[137]80
  8. 36 [129]T[178]1904[164]1943:[151]T[170]SC,5:[151]T,69:[130]:[137]19
  9. 38 H1[178]1516:H2[178]1536:[129]T[178]49440[164]49720[169]3:[151]H1[170]SC[170][194](T),[194](T[170]2):[151]H1[170][194](T),[194](T[170]1):[151]H2[170]SC[170][194](T),[194](T[170]2):[151]H2[170][194](T),[194](T[170]1):H1[178]H1[170][194](T):H2[178]H2[170][194](T):[130]:[129]T[178]1904[164]2023:[151]T[170]SC,5:[151]T,69:[130]:[142]
  10. 44 C2[178]50:V[178]53248:[151]2043,242:[151]2044,242:[151]2045,243:[151]2046,243:[151]2047,241:[151]V[170]42,9:[151]V[170]43,9:[151]V[170]44,5:[151]V[170]45,5:[151]V[170]46,11:[151]V[170]14,C2:[151]V[170]15,75:[151]V[170]10,9:[151]V[170]11,150:[151]V[170]16,80:[151]V[170]12,57:[151]V[170]13,155:[151]V[170]6,18:[151]V[170]7,185:[151]V[170]8,70:[151]V[170]9,185:[151]V[170]29,224:[151]V[170]23,120:[151]V[170]21,248:[142]
  11. 51 [151]198,0:P[178]365:[141]57:[133]"MAX. 10 LETTERS....STOP";AN$:LN[178][195](AN$):[139]LN[179]11[167]54
  12. 53 [129]T[178]1384[164]1423:[151]T,32:[130]:[137]51
  13. 54 QQ$[178][199](32)[170]AN$[170][199](32):[129]T[178]1344[164]1423:[151]T,32:[130]:[142]
  14. 57 [151]781,P[173]40:[151]782,P[171]40[172][194](781):[151]783,0:[158]65520:[142]
  15. 58 C1[178][181](270[172][187](TI[173]37))[170]30:[139]C1[178][179]C2[167]64
  16. 60 [129]X[178]C2[164]C1:[139]X[177]255[167][151]V[170]16,[194](V[170]16)[176]2[174]7:XX[178]X[171]255:[151]V[170]14,XX:[137]63
  17. 62 [129]DE[178]1[164]25:[130]:[151]V[170]16,80:[151]V[170]14,X
  18. 63 [130]:C2[178]C1:[142]
  19. 64 [129]X[178]C2[164]C1[169][171]1:[139]X[177]255[167][151]V[170]16,[194](V[170]16)[176]2[174]7:XX[178]X[171]255:[151]V[170]14,XX:[137]67
  20. 66 [129]DE[178]1[164]25:[130]:[151]V[170]16,80:[151]V[170]14,X
  21. 67 [130]:C2[178]C1:[142]
  22. 68 P[178]323:[141]57:[153]W1$:P[178]363:[141]57:[153]W2$
  23. 70 P[178]403:[141]57:[153]"WHICH WEATHER TYPE STOP";:[151]198,0:[133]AN$:[139]AN$[178]"R"[167][141]96:[142]
  24. 72 [139]AN$[178]"H"[167][141]124:[142]
  25. 73 [139]AN$[178]"L"[167][141]152:[142]
  26. 74 [139]AN$[178]"T"[167][141]167:[142]
  27. 75 P[178]403:[141]57:[153]SS$:[137]70
  28. 76 LS[178]0:[129]T[178]LM[164]LN[169]40:[129]Y[178]0[164]12:[139][194](T[170]Y)[178]32[167]79
  29. 78 LS[178]LS[170]1
  30. 79 [130]:[130]:[142]
  31. 80 [153]"LOADSTOP":[151]53280,7:[151]53281,1:[151]V[170]21,0:P[178]253[171]([195](WW$)[173]2):[141]57:[153]WW$" IS THE WINNER":P[178]491:[141]57:[153]"PLAY AGAIN...(Y/N)":[141]88
  32. 84 [161]AN$:[139]AN$[178]""[167]84
  33. 85 [139]AN$[178]"Y"[167]1
  34. 86 [139]AN$[179][177]"N"[167]84
  35. 87 [158]64738
  36. 88 [129]T[178]0[164]23:[151]T[170]S,0:[130]:[151]S[170]24,10:A[178]15:D[178]107:[151]S[170]5,A:[151]S[170]12,A:[151]S[170]19,A:[151]S[170]6,D:[151]S[170]13,D:[151]S[170]20,D:[151]S[170]14,50:[151]S[170]15,40:[151]S[170]4,33:[151]S[170]11,23:[151]S[170]18,23:[129]F1[178]10[164]50[169]1:[151]S[170]1,F1:[129]F2[178]30[164]1[169][171]5:[151]S[170]8,F2:[130]:[130]:[151]S[170]4,32:[151]S[170]11,32:[151]S[170]18,32:[142]
  37. 96 [129]T[178]1344[164]1463:[151]T,32:[130]
  38. 97 W[178]([181](200[172][187](TI[173]37))[171]100):[139]W[178]0[167]97
  39. 98 W$[178]"<":[139]W[177]0[167]W$[178]"->
  40. 99 P=365:GOSUB57:PRINT"THE WIND IS "W$W" K.P.H.
  41. 100 P[178]405:[141]57:[153]"ENTER YOUR WIND FACTOR         CMDCMDCMDCMDCMDCMDCMDCMDCMD";
  42. 101 [133]AN$:[139]AN$[178]""[167]101
  43. 102 [139][198](AN$)[179]45[176][198](AN$)[177]57[167]100
  44. 103 WF[178][197](AN$):[139]WF[177]200[176]WF[179][171]200[167]100
  45. 104 [129]T[178]1264[164]1463:[151]T,32:[130]:[129]T[178]0[164]24:[151]S[170]T,0:[130]:C[178]1261:CS[178][181](C1[173]8):I[178]0:LO[178]0:J[178]0:F[178](W[170]WF)[173]23.5:[129]A[178]1[164]16:[129]B[178]0[164]7:Z[178]C[170]CS[170]I[170]B:[151]S[170]24,6:[151]S[170]0,255:[151]S[170]1,2:[151]S[170]5,0:[151]S[170]6,240:[151]S[170]4,129:[151]S[170]4,128:[139][194](Z)[179][177]32[167]LO[178]LO[170]1
  46. 112 [139]LO[178]9[167]B[178]7:A[178]16:[137]115
  47. 113 [151]Z,119:[151]Z[170]SC,0:J[178]J[170]1:[130]:I[178]I[170]F:C[178]C[170]40
  48. 115 [130]:[129]T[178]1[164]2000:[130]:C[178]1261:I[178]0:JJ[178]0:[129]A[178]1[164]16:[129]B[178]0[164]7:Z[178]C[170]CS[170]I[170]B:[151]Z,32:JJ[178]JJ[170]1:[139]JJ[178]J[167]B[178]7:A[178]16:[137]122
  49. 121 [130]:I[178]I[170]F:C[178]C[170]40
  50. 122 [130]:[142]
  51. 124 [129]T[178]1344[164]1463:[151]T,32:[130]
  52. 125 W[178]([181](200[172][187](TI[173]37))[171]100):[139]W[178]0[167]125
  53. 126 W$[178]"<":[139]W[177]0[167]W$[178]"->
  54. 127 P=365:GOSUB57:PRINT"THE WIND IS "W$W" K.P.H.
  55. 128 P[178]405:[141]57:[153]"ENTER YOUR WIND FACTOR         CMDCMDCMDCMDCMDCMDCMDCMDCMD";
  56. 129 [133]AN$:[139]AN$[178]""[167]129
  57. 130 [139][198](AN$)[179]45[176][198](AN$)[177]57[167]128
  58. 131 WF[178][197](AN$):[139]WF[177]200[176]WF[179][171]200[167]128
  59. 132 [129]T[178]1264[164]1463:[151]T,32:[130]:[129]T[178]0[164]24:[151]S[170]T,0:[130]:C[178]1262:CS[178][181](C1[173]8):I[178]0:LO[178]0:J[178]0:F[178](W[170]WF)[173]23.5:[129]A[178]1[164]16:[129]B[178]0[164]3:Z[178]C[170]CS[170]I[170]B:[151]S[170]24,15:[151]S[170]0,255:[151]S[170]1,2:[151]S[170]5,0:[151]S[170]6,240:[151]S[170]4,129:[151]S[170]4,128:[139][194](Z)[179][177]32[167]LO[178]LO[170]1
  60. 140 [139]LO[178]11[167]B[178]3:A[178]16:[137]143
  61. 141 [151]Z,120:[151]Z[170]SC,0:J[178]J[170]1:[130]:I[178]I[170]F:C[178]C[170]40
  62. 143 [130]:[129]T[178]1[164]2000:[130]:C[178]1262:I[178]0:JJ[178]0:[129]A[178]1[164]16:[129]B[178]0[164]3:Z[178]C[170]CS[170]I[170]B:[151]Z,32:JJ[178]JJ[170]1:[139]JJ[178]J[167]B[178]3:A[178]16:[137]150
  63. 149 [130]:I[178]I[170]F:C[178]C[170]40
  64. 150 [130]:[142]
  65. 152 P[178]240:[141]57:[129]T[178]0[164]4:[153]SS$;:[130]:[129]T[178]0[164]26:[151]S[170]T,0:[130]:[151]S[170]24,15:[151]S[170]5,0:[151]S[170]6,255:[151]S[170]1,4:[151]S[170]0,0:[151]S[170]4,129:[129]T[178]1[164]250:[130]:[151]S[170]4,128:CU[178]0:CO[178]0:C[178]1264[170][181](C1[173]8):CC[178]C:[129]T[178]49152[164]49250[169]2:[139][194](C[170][194](T))[178]32[167]162
  66. 161 CO[178]CO[170]1:[139]CO[178]13[167]164
  67. 162 [151]C[170]SC[170][194](T),1:[151]C[170][194](T),[194](T[170]1):C[178]C[170][194](T):CU[178]CU[170]1:[130]
  68. 164 [129]DE[178]1[164]2000:[130]:[129]T[178]49152[164]((CU[171]1)[172]2[170]49152)[169]2:[151]CC[170][194](T),32:CC[178]CC[170][194](T):[130]:[142]
  69. 167 P[178]240:[141]57:[129]T[178]0[164]4:[153]SS$;:[130]:[129]T[178]0[164]26:[151]S[170]T,0:[130]:[151]S[170]24,15:[151]S[170]0,255:[151]S[170]1,2:[151]S[170]5,0:[151]S[170]6,255:[151]S[170]4,129:[129]T[178]1[164]250:[130]:[151]S[170]4,128:CU[178]0:CO[178]0:C[178]1260[170][181](C1[173]8):CC[178]C:[129]T[178]49261[164]49434[169]2:[139][194](C[170][194](T))[178]32[167]177
  70. 176 CO[178]CO[170]1:[139]CO[178]17[167]179
  71. 177 [151]C[170]SC[170][194](T),0:[151]C[170][194](T),[194](T[170]1):C[178]C[170][194](T):CU[178]CU[170]1:[130]
  72. 179 [129]DE[178]1[164]2000:[130]:[129]T[178]49261[164]((CU[171]1)[172]2[170]49261)[169]2:[151]CC[170][194](T),32:CC[178]CC[170][194](T):[130]:[142]
  73.